home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / MEGSPRED.SDA / MEGASPRITE BOOT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  70 lines
  1. 10 DV=PEEK(186):IFDV<8THENDV=8
  2. 15 IFPEEK(49152)=76THEN25
  3. 20 SYS57812"MC000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
  4. 25 POKE53280,0:POKE53281,0:PRINT"[147][154]"CHR$(14)
  5. 30 MT=49152:MS=6144:RG=829:SYSMT+6,0,39,0,24,2
  6. 40 X1=1:X2=38:Y1=1:Y2=23:C=5:Z=3
  7. 50 FORI=1TO9:SYSMT+3,X1,X2,Y1,Y2,219,C
  8. 55 C=C+1:X1=X1+1:X2=X2-1:Y1=Y1+1:Y2=Y2-1:NEXT:SYSMT+3,X1+1,X2+1,Y1+1,Y2+1,219,5
  9. 57 SYSMT+3,X1,X2,Y1,Y2,160,0
  10. 60 RW=11:CL=17:GOSUB999:PRINT"[204]OADING"
  11. 70 RW=13:CL=15:GOSUB999:PRINT"[205][197][199] [197][196][201][212][207][210]![154]"
  12. 80 SYS57812"MEG EDITOR",DV,0:POKE780,0:POKE781,0:POKE782,24:SYS65493
  13. 99 REM  [ MAIN ]
  14. 100 SYSMS+Z:Z=0
  15. 105 H1=PEEK(RG):L1=PEEK(RG+1):H2=PEEK(RG+2):L2=PEEK(RG+3)
  16. 110 IFPEEK(828)THEN300
  17. 120 GOTO400
  18. 150 POKE53280,14:POKE53281,6:POKE53272,23:PRINT"[147][154]";:END
  19. 300 REM [ SAVE ]
  20. 305 SYSMT+6,0,39,0,24,14
  21. 310 RW=1:CL=11:GOSUB999
  22. 325 PRINT"** [211][193][214][197] [205][197][199][211] **"
  23. 335 RW=4:GOSUB999:PRINT"[198][201][204][197][206][193][205][197]? ";
  24. 340 SYSMT+66,14,3,14,""
  25. 345 FL$="M."+W$
  26. 350 GOSUB999:PRINT"[211][193][214][201][206][199]  [154]"FL$
  27. 360 OPEN15,8,15,"S0:"+FL$:CLOSE15
  28. 380 SYS57812FL$,DV,0:POKE193,H1:POKE194,L1:POKE174,H2:POKE175,L2:SYS62954
  29. 390 GOSUB500
  30. 392 OPEN15,DV,15:INPUT#15,EN$,EM$,ET$,ES$
  31. 393 CLOSE15:RW=22:CL=6:GOSUB999:PRINT"[155][196][207][211] [211]TATUS: "EN$","EM$","ET$","ES$
  32. 394 RW=23:CL=1:GOSUB999:PRINT"[158][208]RESS ANY KEY OR '[196]' TO DROP TO BASIC[154]"
  33. 395 GOSUB995
  34. 396 IFA$="D"THEN150
  35. 397 POKE828,0:GOTO100
  36. 400 REM [ LOAD ]
  37. 405 SYSMT+6,0,38,0,24,14
  38. 410 RW=1:CL=11:GOSUB999
  39. 425 PRINT"** [204][207][193][196] [205][197][199][211] **"
  40. 430 GOSUB600:SYSMT+63,1
  41. 440 SYSMT+6,2,36,2,21,15
  42. 442 SYSMT+54,"$:M.*",DV,57344
  43. 445 N=F%+1:IFNTHEN460
  44. 447 GOSUB500
  45. 450 RW=22:CL=1:GOSUB999:PRINT"[212]HERE ARE NO 'M.' FILES ON THIS DISK!"
  46. 455 GOTO396
  47. 460 SYSMT+48,57344
  48. 465 SYSMT+60,3,3,19,0,3,3,3,0
  49. 470 FL$=W$:GOSUB500
  50. 475 RW=22:CL=8:GOSUB999:PRINT"[204]OAD "FL$"? ";
  51. 477 SYSMT+66,1,14,1,"Y"
  52. 480 IFW$="N"ORW$="[206]"THEN390
  53. 485 RW=22:CL=8:GOSUB999:PRINT"[159][204]OADING "FL$
  54. 490 AD=32:IFSTHENAD=40
  55. 495 SYS57812FL$,DV,0:POKE780,0:POKE781,0:POKE782,58:SYS65493
  56. 499 GOTO390
  57. 500 RW=22:CL=3:GOSUB999:PRINT"                                 "
  58. 510 RW=23:GOSUB999:PRINT"                               "
  59. 520 RETURN
  60. 600 RW=22:CL=4:GOSUB999:PRINT"[154]CURSOR KEYS: UP/DOWN   [[210][197][212][213][210][206]]"
  61. 610 RW=23:GOSUB999:PRINT"[198]-KEYS: PAGE UP/DOWN   TO EXIT"
  62. 620 RETURN
  63. 995 GETA$:IFA$=""THEN995
  64. 996 RETURN
  65. 998 REM [ PRINT AT ]
  66. 999 POKE214,RW:POKE211,CL:SYS58732:RETURN
  67. 9999 STOP
  68. 10000 DV=PEEK(186):N$="MEGASPRITE BOOT"
  69. 10010 OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
  70.